home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amigabasic / amigseq.lha / AMGSEQ1.BAS next >
BASIC Source File  |  1995-03-17  |  425b  |  12 lines
  1. 10    rem read/print seq file/Earl Hamner/Nov 85
  2. 20    scnclr:print"READ SEQUENTIAL FILE"
  3. 30    print:print"Use CTRL-D to start/stop screen listing"
  4. 40    print:input"Name of seq file:";a$
  5. 50    print:input"Send to printer <y/n>";b$
  6. 60    if b$="y" then open "O",#2,"prt:"
  7. 70    open "I",#1,a$
  8. 80    while not eof (1)
  9. 90    line input #1, a$: print a$
  10. 100   if b$="y" then print #2, a$
  11. 110   wend:close #1:close #2
  12.